perm filename LANG3[MUS,LCS] blob sn#197663 filedate 1976-01-21 generic text, type T, neo UTF8
00100	COMPILE;
01300	INSTRUMENT FM;
01510	RANDI(P9*P7*MAG,MAG/P8);
01600	OSCIL(U1,P9*MAG,P10);
01700	OSCIL(P4,U2+P3*MAG,P6);
01800	OUTA←OUTA+U3; END;
01900	
02500	FINISH;
02600	
03000	SYNTH(F1);1 1  999;
03200	
03300	
03340	PLAY;FM 0 .80 440 2000 0 F1 11 .01 440.06 F1;FINISH;
03440	RCDFLG←1;
03500	PLAY;FM 0 610 440 2000 0 F1 11 10 440.06 F1;FINISH;